home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00004_Script_art < prev    next >
Text File  |  1995-11-16  |  1KB  |  47 lines
  1. -- standard button trios
  2. property myNormal, myRollover, myPressed, myChannel, myScript
  3.  
  4. on birth me, sp, no,  ro, pr, sc
  5.   set myNormal to (the number of cast no)
  6.   set myRollover to (the number of cast ro)
  7.   set myPressed to (the number of cast pr)
  8.   set myScript to sc
  9.   set myChannel to integer(sp)
  10.   return me
  11. end
  12.  
  13. --change appearance
  14. on rollo me
  15.   puppetSprite myChannel,TRUE
  16.   set the castNum of sprite myChannel to myRollover
  17.   updateStage
  18.   --puppetSprite myChannel, false
  19. end
  20.  
  21. on press me
  22.   puppetSprite myChannel,TRUE
  23.   set the castNum of sprite myChannel to myPressed
  24.   updateStage
  25.   puppetSprite myChannel, false
  26. end
  27.  
  28. on norm me
  29.   puppetSprite myChannel,TRUE
  30.   set the castNum of sprite myChannel to myNormal
  31.   updateStage
  32.   puppetSprite myChannel, false
  33. end
  34.  
  35. on doScript me
  36.  --put ">>> art: " myChannel && myRollover && myPressed && myNormal && myScript 
  37.   do myScript
  38. end
  39.  
  40. on doRollOverMe me
  41.   return 1
  42. end
  43.  
  44. on doHiLiteMe me
  45.   return 1
  46. end
  47.